5 POKE53281,7:POKE53280,1:PRINTCHR$(144):PRINTCHR$(142)
10 PRINTCHR$(147):PRINTCHR$(14)
15 GOSUB500:PRINTCHR$(142)
20 PRINT"ELECTION NIGHT"
30 PRINT"BY"
40 PRINT"JOHN  BELTRAMI"
50 PRINT"1 - ELECTION PROCESS EXPLANATION"
60 PRINT"2 - LET'S TABULATE THE VOTES"
62 PRINT"3 - EXIT BACK TO LOADSTAR   "
70 PRINT"YOUR CHOICE: ";:POKE198,0:WAIT198,1:GETY$
80 IFY$="1"THENF$="ELECTION DOC":GOTO200
90 IFY$="2"THENF$="ELECTION NIGHT":GOTO200
92 IFY$="3"THENF$="HELLO":GOTO200
100 PRINT"[145][145][145][145]":GOTO70
200 PRINT"[147]LOAD"CHR$(34)F$CHR$(34)",8":PRINT"RUN"
210 POKE631,13:POKE632,13:POKE198,2:END
500 PRINT"[147]"
510 PRINT"  [200]AVE YOU EVER THOUGHT YOU MIGHT BE ":PRINT
520 PRINT"ABLE TO PREDICT THE WINNER OF THE ":PRINT
530 PRINT"[208]RESIDENTIAL ELECTIONS, JUST LIKE THE ":PRINT
540 PRINT"THE NATIONAL NEWCASTERS DO, IF ONLY YOU":PRINT
550 PRINT"HAD A WAY TO KEEP TRACK OF ALL THE ":PRINT
560 PRINT"VOTES??  [197][204][197][195][212][201][207][206][160][206][201][199][200][212] IS WHAT YOU'VE ":PRINT
570 PRINT"BEEN WAITING FOR!!  [206]OT ONLY WILL ":PRINT
580 PRINT"[197][204][197][195][212][201][207][206][160][206][201][199][200][212] ALLOW YOU TO ENTER THE ":PRINT
590 PRINT"RESULTS AS THEY ARE ANNOUNCED, STATE BY":PRINT
600 PRINT"STATE, IT WILL ASSIGN ELECTORAL VOTES ":PRINT
610 PRINT"ACCORDING TO THE POPULAR VOTE.":GOSUB5000
620 PRINT"  [201]F YOU'RE NOT SURE WHAT THE ELECTORAL":PRINT
630 PRINT"COLLEGE IS ALL ABOUT, THE PROGRAM WILL ":PRINT
640 PRINT"EXPLAIN IT FOR YOU. [211]INCE THE ELECTORAL":PRINT
650 PRINT"VOTE ASSIGNMENTS ARE ACCURATE FOR EACH ":PRINT
660 PRINT"STATE UNTIL THE NEXT CENSUS, YOU CAN  ":PRINT
670 PRINT"KEEP USING THIS PROGRAM UNTIL 1990. [217]OU":PRINT
680 PRINT"CAN EVEN ENTER YOUR OWN NUMBERS TO SEE ":PRINT
690 PRINT"HOW MUCH POPULAR VOTE IT TAKES TO SWING":PRINT
700 PRINT"THE ELECTION FROM ONE CANDIDATE TO THE ":PRINT
710 PRINT"ANOTHER.":GOSUB5000:RETURN
5000 POKE783,PEEK(783)AND254
5002 POKE781,24:POKE782,13:SYS65520
5004 PRINT"<PRESS A KEY>"
5006 POKE198,0:WAIT198,1:PRINT"[147]":RETURN